From 063891983a4794dcc6053ebf00f5cd4f6da64e8a Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Mon, 3 Feb 2025 15:01:46 -0500 Subject: [PATCH] TODO: Put a short summary on the line above and replace this paragraph with a longer explanation of this change. Complete the meta-information with other relevant fields (see below for details). To make it easier, the information below has been extracted from the changelog. Adjust it or drop it. gcl (2.6.14-12) unstable; urgency=medium * Version_2_6_15pre11 Gbp-Pq: Name Version_2_6_15pre11 --- git.tag | 2 +- lsp/gcl_sharp.lsp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/git.tag b/git.tag index c6520047..ae57803d 100644 --- a/git.tag +++ b/git.tag @@ -1 +1 @@ -"Version_2_6_15pre10" +"Version_2_6_15pre11" diff --git a/lsp/gcl_sharp.lsp b/lsp/gcl_sharp.lsp index a6a2115f..1df4742d 100644 --- a/lsp/gcl_sharp.lsp +++ b/lsp/gcl_sharp.lsp @@ -51,7 +51,7 @@ (aset1 x i (patch-sharp (row-major-aref x i))))) (structure (let ((d (structure-def x))) - (dotimes (i (structure-length x) x) + (dotimes (i (structure-length d) x) (declare (fixnum i)) (structure-set x d i (patch-sharp (structure-ref x d i)))))) (spice (let* ((y (gethash1 x (context-spice *sharp-eq-context*))) -- 2.30.2